home *** CD-ROM | disk | FTP | other *** search
/ ShareWare OnLine 2 / ShareWare OnLine Volume 2 (CMS Software)(1993).iso / bbs_soft / qbbs276t.zip / S-VER.Q-A < prev    next >
Text File  |  1993-01-18  |  4KB  |  142 lines
  1. Clearscreen
  2. Changecolor 14 0
  3. Display "                      QuickBBS 2.76 New User Survey |"
  4. Changecolor 7 0
  5. Display "|"
  6. Display "    Due to the volume of requests for access to this System |"
  7. Display "We would like for you to answer a few questions.  Anyone who chooses |"
  8. Display "not to answer, will not gain full access to this BBS!   |"
  9. Display "|"
  10. Display "    This information is needed for my records only. Please take |"
  11. Display "the time to fill in this Survey. This is the only time You will |"
  12. Display "be asked or permitted to Answer these Questions....!|"
  13. Display "|"
  14. Display "     If you have already answered these questions, it is not |"
  15. Display "necessary to do so again.  |"
  16. Display "|"
  17. Display "            Thank You...... The Sysop"
  18. Display "|"
  19.  
  20. Changecolor 14 0
  21. Display " What is Your Real Full Name (nicknames OK, no aliases please!) |"
  22. Changecolor 3 0
  23. Ask 35 1 10
  24.  
  25. Changecolor 14 0
  26. Display " Is this the name you used to log onto the BBS (Y/N)? |"
  27. Changecolor 3 0
  28. GetChoice YN 2
  29. If 2 = "N"
  30.         Changecolor 14 0
  31.         Display " What is your Log on Name|: "
  32.         Changecolor 3 0
  33.         Ask 35 3 5
  34. Endif
  35.  
  36. Changecolor 14 0
  37. Display " What is Your Correct Street Address (no PO Boxes, Please!) |"
  38. Changecolor 3 0
  39. Ask 45 4 10
  40.  
  41. Changecolor 14 0
  42. Display " What is Your Correct Town  |"
  43. Changecolor 3 0
  44. Ask 45 5 5
  45.  
  46. Changecolor 14 0
  47. Display " What is the Correct State (or equivalent if not from US) |"
  48. Changecolor 3 0
  49. Ask 20 6 2
  50.  
  51. Changecolor 14 0
  52. Display " What is you Correct ZipCode... (5 or 9 digit code)|"
  53. Display "(or equivalent if not from US)? |"
  54. Changecolor 3 0
  55. Ask 10 7
  56.  
  57. Changecolor 14 0
  58. Display " Is this also your Mailing Address (Y/N) |"
  59. Changecolor 3 0
  60. GetChoice YN 8
  61. If 8 = "N"
  62.         Changecolor 14 0
  63.         Display " Please enter your Mailing Address on two lines. |"
  64.         Display " On this line put your P.O. Box or other address: |"
  65.         Changecolor 3 0
  66.         Ask 50 9
  67.         Changecolor 14 0
  68.         Display " On This Line Input, City, State & Zip Code or equivalent: |"
  69.         Changecolor 3 0
  70.         Ask 70 10 10
  71. Endif
  72.  
  73. Changecolor 14 0
  74. Display " What is your age (please be honest)? | "
  75. Changecolor 3 0
  76. Ask 2 11 2
  77.  
  78. Changecolor 14 0
  79. Display " What type of computer do you usually call from? | "
  80. Changecolor 3 0
  81. Ask 20 12 2
  82.  
  83. Changecolor 14 0
  84. Display "Do you operate a public BBS? (Y/N) |"
  85. Changecolor 3 0
  86. GetChoice YN 13
  87. If 12 = "Y"
  88.         Changecolor 14 0
  89.         Display "What is the name and phone number of your BBS? | "
  90.         Changecolor 3 0
  91.         Ask 65 14
  92.         SetFlag C7 ON
  93. Endif
  94.  
  95. Changecolor 14 0
  96. Display "Where did you hear about this new QuickBBS 2.76 System? | "
  97. Changecolor 3 0
  98. Ask 65 15 5
  99.  
  100. Changecolor 14 0
  101. Display "Is all of the information you entered correct? (Y/N) | "
  102. Changecolor 3 0
  103. GetChoice YN 16
  104. If 16 = "Y"
  105.         PostInfo
  106.         OutputAnswer "Full Real Name : " 1
  107.         OutputAnswer "Log On Name    : " 3
  108.         OutputAnswer "Street         : " 4
  109.         OutputAnswer "City           : " 5
  110.         OutputAnswer "State          : " 6
  111.         OutputAnswer "Zip Code       : " 7
  112.         OutputAnswer "Street/box Mail: " 9
  113.         OutputAnswer "City/State/Zip : " 10
  114.         OutputAnswer "Current Age    : " 11
  115.         OutputAnswer "Computer Type  : " 12
  116.         OutputAnswer "BBS            : " 14
  117.         OutputAnswer "Referred by    : " 15
  118.         Changecolor 15 0
  119.         Display "|"
  120.         Display "|"
  121.         Display "     Thank You For Taking The Time to Answer These Questions !|"
  122.         Display "|"
  123.         Display "  This Will Save US a lot of Wasted Time and E-mail........|"
  124.         Display "|"
  125.         Display "|"
  126.         Display "     You may now proceed to the Automated Verification System. |"
  127.         Display "  It will not be necessary to complete this survey again even if |"
  128.         Display "  you must use the AVS more than once.  Thank you for your |"
  129.         Display "  cooperation. |"
  130.         SetFlag C8 On
  131.         SetFlag B8 OFF
  132. Endif
  133.  
  134. If 16 = "N"
  135.         Changecolor 7 0
  136.         Display "     You will not be allowed to use the Automated Verification |"
  137.         Display "  System to obtain full membership until after you have completed |"
  138.         Display "  this survey and successfully recorded your answers. |"
  139.         Display "     Please try again, and thank you for your cooperation. |"
  140.         Changecolor 7 0
  141. Endif
  142.